COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	TITLE	MIXAL
 00006 ENDMK
⊗;
TITLE	MIXAL

↓P←17
MIXASM←←1			;define this to make MIXAL the last file in assembly

acsave:	block	20		;used to save ac's when we're in MIX

DEFINE ULIST1 {DONEIT←←0}
DEFINE ULIST2 {IFE DONEIT, {DONEIT←←1↔XLIST}}

;	SINCE NO BUTTON HAS BEEN READ BEFORE MIXAL IS CALLED, THERE CAN BE
;		NO SECOND ARGUMENT ON THE LINE.  THUS THE RESCN ROUTINE SIMPLY
;		TAKES ITS SKIP RETURN

RESCN:	AOS	(P)
	AOS	(P)
	POPJ	P,
RECHAR:	0